<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2880</cardID>
<listID>2218</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞HyperCard 2.3 UpdateTuesday, September 12, 1995©Copyright 1987-1991,1993-1995 by Apple Computer,Inc.All Rights Reserved.THE MESSAGE HANDLERS USED IN THIS SCRIPT:openStack, closeStack, checkVersion, updateFrench_HyperCard_2_3,resourceError, listResources, startUsingStack, stopUsingStackTHE FUNCTION HANDLERS USED IN THIS SCRIPT:getStackPathName, theResType, theResID, theResName, lastHCItemXCMD's USED BY THIS SCRIPT:ResRemove XCMDform: ResRemove pathname, ResType, res IDdeletes a resource from stack <pathname>CopyRes XCMDform: CopyRes ResType, res ID, source pathname, destination pathnamecopies a resource from "source" to "destination" -- ∆The resource will be renumbered if a resource of the same ResTypeand ID already exists.XFCN's USED BY THIS SCRIPT:Resources XFCNform: Resources([<pathname>])returns a return-delimited list of all resources in a file in the form:ResType, res ID, res size, res nameIf the <pathname> parameter is omitted, the resources in the currentstack are listed.∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞on openStackglobal oldUserLevel-- checkVersionput the userlevel into oldUserLevel-- set the userlevel to 2end openStackon closeStackglobal oldUserLevelset the userlevel to oldUserLevelend closeStackon checkVersionif the version < 2.3 thenanswer "Cette mise à jour requiert HyperCard 2.3." -- ∆domenu "Quitter HyperCard" -- ∆end ifend checkVersionon updateFrench_HyperCard_2_3put empty into cd fld "Stack Resources List" -- ∆put getStackPathName() into stackWithUpdates-- Prompt user for the Color Tools 2.3 stackanswer file "Localisez l’application HyperCard F1-2.3." of type "APPL" -- ∆if the result is "Cancel" then exit to hyperCard -- ∆if it is not empty then put it into stackToUpdate-- get a list of the resources in this stacklistResources stackToUpdate-- loop through card field containing names of resources to be updated / addedrepeat with lineNum = 1 to number of lines in cd field "French HyperCard Update List" -- ∆set the cursor to busyput theResType ( line lineNum of cd fld "French HyperCard Update List") into resType -- ∆put theResID ( line lineNum of cd fld "French HyperCard Update List") into resID -- ∆-- check to see if the resource already exists in the stack-- remove it if it does already existif line lineNum of cd fld "French HyperCard Update List" is in cd fld "Stack Resources List" then -- ∆ResRemove stackToUpdate, resType, resIDif the result is not empty thenput the result into errorMsgresourceError "suppression", stackToUpDate, errorMsg -- ∆end ifend if-- install new or replacement resource into stackCopyRes resType, resID, stackWithUpdates, stackToUpdateif the result <> resID thenput the result into errorMsgresourceError "copie", stackToUpdate, errorMsg -- ∆end ifend repeat-- stopUsingStack stackToUpdateanswer "Votre application HyperCard F1-2.3 a été mise à jour en version F1-2.3.1." -- ∆domenu "Quitter HyperCard" -- ∆end updateFrench_HyperCard_2_3-- Utility handlers used in this stackon resourceError activity, stackToUpdate, errorMsgif activity = "suppression" then -- ∆answer "Une erreur est survenue en supprimant certaines ressources de la pile." && quote &¬ -- ∆lastHCItem ( colon, stackToUpdate ) & quote & return & return & "Le message d’erreur est" &&¬ -- ∆quote & errorMsg & quote -- ∆else if activity = "copying" then -- ∆answer "Une erreur est survenue en copiant certaines ressources dans la pile." && quote &¬ -- ∆lastHCItem ( colon, stackToUpdate ) & quote & return & return & "Le message d’erreur est" &&¬ -- ∆quote & errorMsg & quote -- ∆end ifexit to HyperCardend resourceErroron listResources stackName-- startUsingStack stackNameget resources( stackName )sort it-- delete the resource size field as it is not necessary and inhibits-- removal and copying of Editor Resourcerepeat with lineNum = 1 to number of lines in itset the cursor to busydelete word 3 of line lineNum of itend repeatput it into cd fld "Stack Resources List" -- ∆end listResourceson startUsingStack stackNamestart using stack stackNameend startUsingStackon stopUsingStack stackNamestop using stack stackNameend stopUsingStackon ul5set the userlevel to 5put the userlevelend ul5-- utility functions used in this stackfunction getStackPathNameput the long name of this stack into stackWithUpdatesdelete the first word of stackWithUpdatesdelete the first char of stackWithUpdatesdelete the last char of stackWithUpdatesreturn stackWithUpdatesend getStackPathNamefunction theResType resInfo-- return the resource type of the resourcereturn char 1 to 4 of resInfoend theResTypefunction theResID resInfo-- return the ID of the resourceget length of resInforeturn word 1 of (char 6 to it of resInfo)end theResIDfunction theResName resInfo-- return the name of the resourcereturn word 3 to the number of words in resInfo of resInfoend theResNamefunction lastHCItem delim,theText-- returns the portion of <theText> that follows the last <delim>if delim is in theText thenput lastHCItem(delim,char offset(delim,theText) + 1 to ¬length(theText) of theText) into theTextend ifreturn theTextend lastHCItem</script>
